<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
on error resume next
dim rs,sql,imgpath
imgpath="uppic/"
If Request("page")="" Then
pageNum=0
'否则就给变量赋值为传递来的page里的参数，来显示其他页
Else
pageNum=RtnReplaceInt(request("page"),0)
'response.Write pagenum
End if
'sql="update news set hits=hits+1 where id="&cstr(request("id"))
'conn.execute sql
set rs=server.createobject("adodb.recordset")
sql="select * from news where id="&RtnReplaceInt(request("id"),0)
rs.open sql,conn,1,1
if rs.eof and rs.bof then
rs.close
set rs=nothing
response.write ""
response.end
else
if rs("link2")<>"" and not isnull(rs("link2")) then
lk=rs("link2")
rs.close
set rs=nothing
conn.close
set conn=nothing
response.Redirect lk
end if
Content=Replace(rs("content"),"|||","|||")
'这里就是关键了
'我们用split函数将文章分段取出存入变量content
ContentStr=split(Content,"|||")
'按照刚才从URL参数中取得的要显示那页的那个变量，就循环显示一页
%>
<%=homepage_caption%>
